home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / tcom / dirparm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  1.3 KB  |  55 lines
  1. {$G+,X+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                   DIRPARM.PAS 1.01                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit Dirparm;
  13.  
  14. interface
  15.  
  16. uses
  17.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  18.   Forms, Dialogs, StdCtrls, Buttons, TComIni;
  19.  
  20. type
  21.   TDirectorySettingsForm = class(TForm)
  22.     GroupBox1: TGroupBox;
  23.     Label1: TLabel;
  24.     Label2: TLabel;
  25.     UploadDirEdit: TEdit;
  26.     DownloadDirEdit: TEdit;
  27.     OkBtn: TBitBtn;
  28.     CancelBtn: TBitBtn;
  29.     HelpBtn: TBitBtn;
  30.     procedure OkBtnClick(Sender: TObject);
  31.  
  32.   public
  33.     constructor Create(AOwner : TComponent); override;
  34.   end;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. constructor TDirectorySettingsForm.Create(AOwner : TComponent);
  41. begin
  42.   inherited Create(AOwner);
  43.   UploadDirEdit.Text   := UploadDir;
  44.   DownloadDirEdit.Text := DownloadDir;
  45. end;
  46.  
  47. procedure TDirectorySettingsForm.OkBtnClick(Sender: TObject);
  48. begin
  49.   UploadDir   := UploadDirEdit.Text;
  50.   DownloadDir := DownloadDirEdit.Text;
  51. end;
  52.  
  53. end.
  54.  
  55.